Voorbeeld van de instructie While...Wend

Dit voorbeeld maakt gebruik van de instructie While...Wend om een tellervariabele te verhogen. De instructies in de lus worden uitgevoerd zolang de voorwaarde Waar als resultaat geeft.

Dim Counter
Counter = 0    ' Initialize variable.
While Counter < 20    ' Test value of Counter.
    Counter = Counter + 1    ' Increment Counter.
Wend    ' End While loop when Counter > 19.
Debug.Print Counter    ' Prints 20 in the Immediate window.